home *** CD-ROM | disk | FTP | other *** search
/ Mega Guia 2004 June / Mega Guia: 2004-06.iso / _files / free / myalbum / ES / myalbumsetup.exe / {app} / DemoVBScript.vbs < prev    next >
Text File  |  2003-02-17  |  653b  |  27 lines
  1. ' Simple VBScript script for MyAlbum
  2. '   Get the current album, list all
  3. '   pictures and select them
  4.  
  5. Option Explicit
  6.  
  7. app.ClearTrace
  8. MsgBox "MyAlbum version: " & app.Version, 0, "MyAlbum does VBScript!!!"
  9.  
  10. ' Define the variables
  11. dim alb, nb, i, pic
  12.  
  13. 'set alb = app.LoadAlbum("D:\WINDOWS\SDK\MyAlbum\DemoAlbum\Demo2.alb")
  14. set alb = app.GetCurrentAlbum
  15.  
  16. nb = alb.nbPicture
  17. app.Trace "Pictures in this album: " & nb, -1, TRACE_INFORMATION
  18. for i=0 to nb-1
  19.     Set pic = alb.GetPicture(i)
  20.     pic.bSelected = True
  21.     app.trace pic.sShortFileName & " - " & pic.sCommentFirstLine
  22. next
  23.  
  24. alb.redraw
  25. app.Trace "Done !", -1, TRACE_OK
  26.  
  27.